#library(knitr)
#knit_hooks$set(optipng = hook_optipng)
Onsets of stimuli and feedback for each third of trials. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on uncorrected p with cluster extension correction.
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/2ndLevel/FeedbackLearning/Result_regions_2Lv_GLM0_thirds_exMiss.xlsx')
dat <-dat[grep('FBL_A',dat$file),]
#some formatting
dat$file <- substr(dat$file,unlist(gregexpr('con_0',dat$file)),unlist(gregexpr('con_0',dat$file))+7) #keep just the con_**** as name
dat <- dplyr::relocate(dat,'aal',2)
dat <- dplyr::relocate(dat,'file',1)
cons2plot <- unique(dat$file)
# Rename contrasts
urfile <- dat$file
renamecontrasts <- function(originalNames){
originalNames <- gsub('con_0002','S1>S3',originalNames)
originalNames <- gsub('con_0003','S3>S1',originalNames)
originalNames <- gsub('con_0004','F1>F3',originalNames)
originalNames <- gsub('con_0005','F3>F1',originalNames)
originalNames <- gsub('con_0006','S1>.',originalNames)
originalNames <- gsub('con_0007','S3>.',originalNames)
originalNames <- gsub('con_0008','F1>.',originalNames)
originalNames <- gsub('con_0009','F3>.',originalNames)
}
dat$file <- renamecontrasts(dat$file)
knitr::kable(dat,caption='', digits=3) %>%
#kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
column_spec(1, bold = T, border_right = T ) %>%
kable_classic(full_width = F, html_font = "Calibri")
| file | aal | xcoord | ycoord | zcoord | cluster_pFWE | cluster_punc | cluster_k | peak_Z | peak_T | peak_pFWE | peak_punc | T_heightThresh | dist |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| S1>S3 | Caudate_R | 22 | 6 | 21 | 0.0074 | 5e-04 | 83 | 5.14 | 6.22 | 0.0105 | 0 | 3.327 | 0 |
| S1>S3 | Frontal_Inf_Orb_R | 43 | 48 | -9 | 0.004 | 3e-04 | 93 | 4.97 | 5.95 | 0.0248 | 0 | 3.327 | 0 |
| S1>S3 | Angular_R | 61 | -60 | 33 | 1e-04 | 0 | 154 | 4.7 | 5.52 | 0.085 | 0 | 3.327 | 1 |
| S1>S3 | Caudate_L | -17 | 12 | 21 | 0.019 | 0.0012 | 68 | 4.42 | 5.09 | 0.2353 | 0 | 3.327 | 0 |
| S1>S3 | Frontal_Mid_R | 37 | 48 | 30 | 0.0147 | 9e-04 | 72 | 4.3 | 4.92 | 0.3355 | 0 | 3.327 | 0 |
| S1>S3 | Temporal_Mid_R | 67 | -24 | -9 | 3e-04 | 0 | 140 | 3.9 | 4.36 | 0.8034 | 0 | 3.327 | 0 |
| S3>S1 | Occipital_Sup_L | -17 | -90 | 3 | 0 | 0 | 3631 | 5.68 | 7.19 | 5e-04 | 0 | 3.321 | 0 |
| S3>S1 | Fusiform_R | 31 | 3 | -36 | 0 | 0 | 933 | 5.44 | 6.76 | 0.002 | 0 | 3.321 | 0 |
| S3>S1 | Insula_R | 37 | -6 | 12 | 0.0069 | 4e-04 | 84 | 4.93 | 5.89 | 0.0304 | 0 | 3.321 | 0 |
| S3>S1 | Supp_Motor_Area_R | 7 | -6 | 54 | 0 | 0 | 339 | 4.56 | 5.3 | 0.1454 | 0 | 3.321 | 0 |
| S3>S1 | Postcentral_R | 40 | -36 | 72 | 0 | 0 | 247 | 4.52 | 5.25 | 0.163 | 0 | 3.321 | 0 |
| S3>S1 | Frontal_Inf_Oper_L | -38 | 15 | 24 | 0.0051 | 3e-04 | 89 | 4.33 | 4.96 | 0.3125 | 0 | 3.321 | 0 |
| S3>S1 | Caudate_R | 13 | 12 | -9 | 0.0065 | 4e-04 | 85 | 4.23 | 4.82 | 0.4154 | 0 | 3.321 | 0 |
| F1>F3 | Frontal_Mid_R | 40 | 45 | 18 | 0 | 0 | 278 | 4.87 | 5.79 | 0.0416 | 0 | 3.344 | 0 |
| F1>F3 | Cerebelum_7b_L | -41 | -54 | -45 | 0.0094 | 6e-04 | 75 | 4.79 | 5.66 | 0.0615 | 0 | 3.344 | 0 |
| F1>F3 | Frontal_Mid_R | 40 | 21 | 42 | 0.01 | 6e-04 | 74 | 4.41 | 5.08 | 0.256 | 0 | 3.344 | 0 |
| F1>F3 | Insula_R | 37 | 18 | -3 | 0.0115 | 7e-04 | 72 | 4.31 | 4.94 | 0.3439 | 0 | 3.344 | 0 |
| F1>F3 | Angular_R | 43 | -51 | 30 | 6e-04 | 0 | 119 | 4.19 | 4.77 | 0.4757 | 0 | 3.344 | 0 |
| F1>F3 | Temporal_Mid_R | 55 | -21 | -9 | 0.0013 | 1e-04 | 107 | 3.9 | 4.35 | 0.8303 | 0 | 3.344 | 0 |
| F3>F1 | Postcentral_L | -29 | -30 | 75 | 0 | 0 | 390 | 5.18 | 6.31 | 0.0081 | 0 | 3.333 | 0 |
| F3>F1 | Parietal_Sup_R | 28 | -57 | 75 | 0.0072 | 4e-04 | 79 | 5.15 | 6.25 | 0.0095 | 0 | 3.333 | 0 |
| F3>F1 | Occipital_Mid_L | -20 | -93 | 3 | 2e-04 | 0 | 142 | 5.14 | 6.23 | 0.0104 | 0 | 3.333 | 0 |
| F3>F1 | Temporal_Pole_Mid_L | -29 | 9 | -33 | 0.0032 | 2e-04 | 92 | 5.12 | 6.2 | 0.0113 | 0 | 3.333 | 0 |
| F3>F1 | Parietal_Sup_L | -8 | -84 | 60 | 0.0131 | 8e-04 | 70 | 4.63 | 5.41 | 0.1165 | 0 | 3.333 | 5.1 |
| F3>F1 | Fusiform_R | 34 | 0 | -36 | 0.0302 | 0.0018 | 58 | 4.53 | 5.26 | 0.1674 | 0 | 3.333 | 0 |
| F3>F1 | Frontal_Sup_Orb_R | 16 | 48 | -12 | 0.0403 | 0.0025 | 54 | 3.75 | 4.16 | 0.9375 | 1e-04 | 3.333 | 0 |
| S1>. | Temporal_Sup_L | -47 | -21 | 3 | 0 | 0 | 1954 | Inf | 12.83 | 0 | 0 | 3.32 | 0 |
| S1>. | Temporal_Sup_R | 58 | -27 | 6 | 0 | 0 | 1453 | 7.5 | 11.49 | 0 | 0 | 3.32 | 0 |
| S1>. | Supp_Motor_Area_L | -8 | 6 | 51 | 0 | 0 | 379 | 6.5 | 8.9 | 0 | 0 | 3.32 | 0 |
| S1>. | Occipital_Mid_R | 34 | -78 | 0 | 0 | 0 | 396 | 6.17 | 8.17 | 0 | 0 | 3.32 | 0 |
| S1>. | Occipital_Inf_L | -32 | -84 | 0 | 0 | 0 | 227 | 5.07 | 6.11 | 0.0151 | 0 | 3.32 | 0 |
| S1>. | Parietal_Sup_L | -29 | -66 | 54 | 0 | 0 | 594 | 4.87 | 5.79 | 0.0393 | 0 | 3.32 | 0 |
| S3>. | Temporal_Sup_R | 58 | -3 | -6 | 0 | 0 | 4872 | Inf | 15.47 | 0 | 0 | 3.346 | 0 |
| S3>. | Temporal_Sup_L | -50 | -21 | 6 | 0 | 0 | 6328 | Inf | 14.62 | 0 | 0 | 3.346 | 0 |
| S3>. | Occipital_Inf_L | -38 | -78 | -9 | 0 | 0 | 991 | 7.03 | 10.17 | 0 | 0 | 3.346 | 0 |
| S3>. | Vermis_10 | 1 | -39 | -39 | 0.0079 | 5e-04 | 83 | 4.29 | 4.9 | 0.3486 | 0 | 3.346 | 1 |
| S3>. | Precentral_R | 28 | -3 | 48 | 0.007 | 5e-04 | 85 | 4.06 | 4.58 | 0.6126 | 0 | 3.346 | 0 |
| F1>. | Angular_R | 49 | -66 | 48 | 0 | 0 | 539 | 6.05 | 7.93 | 1e-04 | 0 | 3.341 | 0 |
| F1>. | Parietal_Inf_L | -53 | -51 | 45 | 0 | 0 | 600 | 5.9 | 7.61 | 1e-04 | 0 | 3.341 | 0 |
| F1>. | Frontal_Mid_R | 46 | 39 | 21 | 0 | 0 | 1359 | 5.84 | 7.5 | 2e-04 | 0 | 3.341 | 0 |
| F1>. | Cerebelum_7b_L | -41 | -51 | -42 | 0 | 0 | 329 | 5.71 | 7.26 | 4e-04 | 0 | 3.341 | 0 |
| F1>. | Frontal_Inf_Orb_L | -47 | 42 | -12 | 0 | 0 | 415 | 5.64 | 7.13 | 6e-04 | 0 | 3.341 | 0 |
| F1>. | Temporal_Mid_L | -65 | -21 | -12 | 4e-04 | 0 | 120 | 4.52 | 5.24 | 0.186 | 0 | 3.341 | 0 |
| F1>. | Insula_L | -35 | -12 | 24 | 0.043 | 0.0025 | 51 | 4.31 | 4.93 | 0.3625 | 0 | 3.341 | 0 |
| F1>. | Temporal_Mid_R | 67 | -33 | -9 | 0.0012 | 1e-04 | 104 | 4.26 | 4.87 | 0.4111 | 0 | 3.341 | 0 |
| F1>. | Supp_Motor_Area_L | -5 | 15 | 63 | 0.0295 | 0.0017 | 56 | 4.18 | 4.74 | 0.5132 | 0 | 3.341 | 0 |
| F3>. | Occipital_Sup_L | -17 | -90 | 3 | 0 | 0 | 280 | 6.75 | 9.48 | 0 | 0 | 3.344 | 0 |
| F3>. | Cuneus_R | 13 | -96 | 12 | 0 | 0 | 312 | 4.95 | 5.92 | 0.0274 | 0 | 3.344 | 0 |
Onsets of stimuli and feedback against baseline. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on FWE corrected p
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/2ndLevel/FeedbackLearning/Result_regions_2Lv_GLM0_mopa_aspe_withFWE.xlsx')
dat <-dat[grep('FBL_A',dat$file),]
dat <- dat[c(grep('con_0006',dat$file),grep('con_0007',dat$file),grep('con_0008',dat$file),grep('con_0009',dat$file)),]
#some formatting
dat$file <- substr(dat$file,unlist(gregexpr('con_0',dat$file)),unlist(gregexpr('con_0',dat$file))+7) #keep just the con_**** as name
dat <- dplyr::relocate(dat,'aal',2)
dat <- dplyr::relocate(dat,'file',1)
cons2plot <- unique(dat$file)
if (any(dat$cluster_k>15)){
dat<-dat[which(as.numeric(dat$cluster_k)>15),]
}
# Rename contrasts
urfile <- dat$file
renamecontrastsmopa <- function(originalNames){
originalNames <- gsub('con_0002','S>.',originalNames)
originalNames <- gsub('con_0003','F>.',originalNames)
originalNames <- gsub('con_0004','S>F',originalNames)
originalNames <- gsub('con_0005','F>S',originalNames)
originalNames <- gsub('con_0006','Sas+',originalNames)
originalNames <- gsub('con_0007','Sas-',originalNames)
originalNames <- gsub('con_0008','Fpe+',originalNames)
originalNames <- gsub('con_0009','Fpe-',originalNames)
}
dat$file <- renamecontrastsmopa(dat$file)
knitr::kable(dat,caption='', digits=3) %>%
#kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
column_spec(1, bold = T, border_right = T ) %>%
kable_classic(full_width = F, html_font = "Calibri")
| file | aal | xcoord | ycoord | zcoord | cluster_pFWE | cluster_punc | cluster_k | peak_Z | peak_T | peak_pFWE | peak_punc | T_heightThresh | dist |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Sas+ | Calcarine_L | -11 | -87 | -3 | 0 | 0 | 230 | 7.33 | 11.01 | 0.000 | 0 | 5.747 | 0 |
| Sas+ | Lingual_R | 16 | -75 | -9 | 0 | 0 | 135 | 6.27 | 8.38 | 0.000 | 0 | 5.747 | 0 |
| Sas+ | Calcarine_L | -8 | -69 | 9 | 0 | 2e-04 | 16 | 5.19 | 6.31 | 0.008 | 0 | 5.747 | 0 |
| Fpe+ | Angular_L | -50 | -72 | 27 | 0 | 0 | 129 | 7.08 | 10.31 | 0.000 | 0 | 5.662 | 0 |
| Fpe+ | Frontal_Med_Orb_L | -8 | 45 | -12 | 0 | 0 | 556 | 6.73 | 9.44 | 0.000 | 0 | 5.662 | 0 |
| Fpe+ | Postcentral_R | 31 | -33 | 48 | 0 | 0 | 1693 | 6.69 | 9.34 | 0.000 | 0 | 5.662 | 0 |
| Fpe+ | Putamen_L | -14 | 9 | -9 | 0 | 0 | 58 | 6.5 | 8.90 | 0.000 | 0 | 5.662 | 0 |
| Fpe+ | Frontal_Sup_L | -17 | 27 | 48 | 0 | 0 | 84 | 6.41 | 8.70 | 0.000 | 0 | 5.662 | 0 |
| Fpe+ | Frontal_Mid_Orb_L | -29 | 42 | -12 | 0 | 0 | 55 | 6.29 | 8.43 | 0.000 | 0 | 5.662 | 0 |
| Fpe+ | ParaHippocampal_L | -17 | -3 | -27 | 0 | 0 | 67 | 6.2 | 8.24 | 0.000 | 0 | 5.662 | 0 |
| Fpe+ | Precuneus_R | 7 | -54 | 18 | 0 | 0 | 287 | 6.07 | 7.96 | 0.000 | 0 | 5.662 | 0 |
| Fpe+ | Calcarine_R | 28 | -63 | 18 | 0 | 0 | 43 | 5.8 | 7.42 | 0.000 | 0 | 5.662 | 3.61 |
| Fpe+ | Lingual_L | -26 | -45 | 3 | 0 | 0 | 37 | 5.78 | 7.38 | 0.000 | 0 | 5.662 | 3 |
| Fpe+ | Temporal_Sup_R | 70 | -6 | 6 | 0 | 0 | 57 | 5.63 | 7.10 | 0.001 | 0 | 5.662 | 0 |
| Fpe+ | Insula_R | 25 | -18 | 18 | 0 | 0 | 90 | 5.59 | 7.03 | 0.001 | 0 | 5.662 | 4.12 |
| Fpe+ | Caudate_R | 19 | 3 | 24 | 0 | 0 | 55 | 5.47 | 6.80 | 0.002 | 0 | 5.662 | 0 |
| Fpe+ | ParaHippocampal_R | 25 | -24 | -21 | 0 | 0 | 32 | 5.38 | 6.64 | 0.003 | 0 | 5.662 | 0 |
| Fpe+ | Caudate_L | -20 | -6 | 24 | 0 | 1e-04 | 27 | 5.33 | 6.55 | 0.004 | 0 | 5.662 | 1 |
| Fpe- | Frontal_Inf_Orb_R | 37 | 24 | -9 | 0 | 0 | 118 | 6.58 | 9.08 | 0.000 | 0 | 5.953 | 0 |
| Fpe- | Insula_L | -32 | 24 | 0 | 0 | 3e-04 | 21 | 5.97 | 7.77 | 0.000 | 0 | 5.953 | 0 |
| Fpe- | Supp_Motor_Area_R | 4 | 9 | 60 | 0 | 4e-04 | 20 | 5.53 | 6.92 | 0.001 | 0 | 5.953 | 0 |
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/2ndLevel/FeedbackLearning/Result_regions_2Lv_GLM0_thirds_exMiss.xlsx')
dat <-dat[grep('FBL_B',dat$file),]
#some formatting
dat$file <- substr(dat$file,unlist(gregexpr('con_0',dat$file)),unlist(gregexpr('con_0',dat$file))+7) #keep just the con_**** as name
dat <- dplyr::relocate(dat,'aal',2)
dat <- dplyr::relocate(dat,'file',1)
cons2plot <- unique(dat$file)
# Rename contrasts
urfile <- dat$file
renamecontrasts <- function(originalNames){
originalNames <- gsub('con_0002','S1>S3',originalNames)
originalNames <- gsub('con_0003','S3>S1',originalNames)
originalNames <- gsub('con_0004','F1>F3',originalNames)
originalNames <- gsub('con_0005','F3>F1',originalNames)
originalNames <- gsub('con_0006','S1>.',originalNames)
originalNames <- gsub('con_0007','S3>.',originalNames)
originalNames <- gsub('con_0008','F1>.',originalNames)
originalNames <- gsub('con_0009','F3>.',originalNames)
}
dat$file <- renamecontrasts(dat$file)
knitr::kable(dat,caption='', digits=3) %>%
#kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
column_spec(1, bold = T, border_right = T ) %>%
kable_classic(full_width = F, html_font = "Calibri")
| file | aal | xcoord | ycoord | zcoord | cluster_pFWE | cluster_punc | cluster_k | peak_Z | peak_T | peak_pFWE | peak_punc | T_heightThresh | dist |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| S3>S1 | Calcarine_R | 22 | -93 | 0 | 0 | 0 | 3569 | 6.58 | 9.07 | 0 | 0 | 3.324 | 0 |
| S3>S1 | Cingulum_Mid_L | -5 | -3 | 48 | 0 | 0 | 687 | 5.61 | 7.06 | 7e-04 | 0 | 3.324 | 0 |
| S3>S1 | Postcentral_L | -38 | -30 | 51 | 0 | 0 | 1070 | 5.37 | 6.63 | 0.0028 | 0 | 3.324 | 0 |
| S3>S1 | Postcentral_R | 43 | -21 | 42 | 0 | 0 | 556 | 5.26 | 6.43 | 0.0054 | 0 | 3.324 | 0 |
| S3>S1 | Caudate_L | -8 | 12 | -3 | 0.0085 | 5e-04 | 79 | 4.97 | 5.95 | 0.0247 | 0 | 3.324 | 0 |
| S3>S1 | Parietal_Sup_L | -11 | -84 | 57 | 8e-04 | 1e-04 | 119 | 4.84 | 5.74 | 0.0481 | 0 | 3.324 | 3.16 |
| S3>S1 | Insula_R | 34 | 24 | 6 | 0.0151 | 0.001 | 70 | 4.81 | 5.7 | 0.0538 | 0 | 3.324 | 0 |
| S3>S1 | Amygdala_L | -14 | 0 | -9 | 0.0184 | 0.0012 | 67 | 4.57 | 5.31 | 0.1405 | 0 | 3.324 | 3 |
| S3>S1 | Pallidum_R | 13 | 0 | 3 | 0.0096 | 6e-04 | 77 | 3.99 | 4.49 | 0.7012 | 0 | 3.324 | 2.24 |
| F1>F3 | Temporal_Mid_R | 61 | -27 | -12 | 5e-04 | 0 | 127 | 3.95 | 4.43 | 0.7604 | 0 | 3.319 | 0 |
| F3>F1 | Calcarine_R | 19 | -90 | -3 | 0 | 0 | 340 | 5.28 | 6.47 | 0.0048 | 0 | 3.33 | 0 |
| F3>F1 | Lingual_L | -17 | -90 | 0 | 0 | 0 | 279 | 4.76 | 5.61 | 0.0684 | 0 | 3.33 | 0 |
| S1>. | Temporal_Sup_L | -50 | -24 | 3 | 0 | 0 | 3613 | 7.6 | 11.79 | 0 | 0 | 3.321 | 0 |
| S1>. | Temporal_Sup_R | 58 | -21 | 3 | 0 | 0 | 1034 | 7.43 | 11.27 | 0 | 0 | 3.321 | 0 |
| S1>. | Frontal_Inf_Oper_R | 40 | 0 | 27 | 0 | 0 | 380 | 5.6 | 7.05 | 8e-04 | 0 | 3.321 | 3 |
| S1>. | Parietal_Sup_R | 31 | -63 | 54 | 0 | 0 | 399 | 5.29 | 6.49 | 0.0044 | 0 | 3.321 | 0 |
| S1>. | Occipital_Inf_L | -35 | -78 | -9 | 0 | 0 | 397 | 5.16 | 6.26 | 0.0091 | 0 | 3.321 | 0 |
| S1>. | Temporal_Inf_R | 49 | -57 | -12 | 0 | 0 | 346 | 5.11 | 6.18 | 0.0118 | 0 | 3.321 | 0 |
| S1>. | Insula_R | 34 | 21 | 3 | 0.0163 | 0.0011 | 73 | 4.95 | 5.92 | 0.0267 | 0 | 3.321 | 0 |
| S3>. | Supp_Motor_Area_L | -5 | 3 | 51 | 0 | 0 | 9762 | Inf | 13.04 | 0 | 0 | 3.451 | 0 |
| S3>. | Occipital_Mid_R | 34 | -81 | 3 | 0 | 0 | 2903 | 7.46 | 11.36 | 0 | 0 | 3.451 | 0 |
| S3>. | Temporal_Sup_R | 58 | -12 | 0 | 0 | 0 | 1100 | 7.21 | 10.66 | 0 | 0 | 3.451 | 0 |
| F1>. | Cerebelum_8_L | -14 | -66 | -36 | 0 | 0 | 2724 | 6.5 | 8.89 | 0 | 0 | 3.324 | 0 |
| F1>. | Frontal_Mid_Orb_R | 25 | 45 | -18 | 0 | 0 | 2440 | 6.21 | 8.25 | 0 | 0 | 3.324 | 0 |
| F1>. | Frontal_Inf_Orb_L | -56 | 36 | -9 | 0 | 0 | 1261 | 5.64 | 7.12 | 6e-04 | 0 | 3.324 | 1 |
| F1>. | Parietal_Inf_L | -50 | -54 | 54 | 0 | 0 | 799 | 5.59 | 7.02 | 8e-04 | 0 | 3.324 | 0 |
| F1>. | Frontal_Inf_Oper_L | -50 | 18 | 36 | 0 | 0 | 238 | 4.53 | 5.26 | 0.1468 | 0 | 3.324 | 0 |
| F1>. | Frontal_Sup_R | 13 | 18 | 51 | 0.0033 | 2e-04 | 101 | 4.42 | 5.1 | 0.2147 | 0 | 3.324 | 0 |
| F1>. | Temporal_Mid_L | -65 | -36 | -9 | 0 | 0 | 314 | 4.09 | 4.61 | 0.5592 | 0 | 3.324 | 0 |
| F3>. | Occipital_Mid_L | -17 | -93 | 3 | 0 | 0 | 1789 | 7.13 | 10.43 | 0 | 0 | 3.338 | 0 |
| F3>. | Parietal_Inf_L | -56 | -51 | 45 | 0 | 0 | 1012 | 5.45 | 6.77 | 0.0018 | 0 | 3.338 | 1 |
| F3>. | Frontal_Inf_Tri_L | -47 | 45 | 0 | 0 | 0 | 1030 | 5.2 | 6.33 | 0.0073 | 0 | 3.338 | 0 |
| F3>. | Frontal_Inf_Orb_R | 52 | 30 | -9 | 0 | 0 | 924 | 4.76 | 5.61 | 0.0584 | 0 | 3.338 | 0 |
| F3>. | Angular_R | 49 | -60 | 48 | 0 | 0 | 373 | 4.58 | 5.34 | 0.1164 | 0 | 3.338 | 0 |
| F3>. | Frontal_Sup_Medial_L | -2 | 27 | 48 | 3e-04 | 0 | 157 | 4.41 | 5.08 | 0.2159 | 0 | 3.338 | 0 |
| F3>. | ParaHippocampal_L | -8 | -18 | -33 | 0.0162 | 0.0012 | 77 | 4.14 | 4.68 | 0.4806 | 0 | 3.338 | 11.7 |
Onsets of stimuli and feedback against baseline. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on FWE corrected p
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/2ndLevel/FeedbackLearning/Result_regions_2Lv_GLM0_mopa_aspe_withFWE.xlsx')
dat <-dat[grep('FBL_B',dat$file),]
dat <- dat[c(grep('con_0006',dat$file),grep('con_0007',dat$file),grep('con_0008',dat$file),grep('con_0009',dat$file)),]
#some formatting
dat$file <- substr(dat$file,unlist(gregexpr('con_0',dat$file)),unlist(gregexpr('con_0',dat$file))+7) #keep just the con_**** as name
dat <- dplyr::relocate(dat,'aal',2)
dat <- dplyr::relocate(dat,'file',1)
cons2plot <- unique(dat$file)
if (any(dat$cluster_k>15)){
dat<-dat[which(as.numeric(dat$cluster_k)>15),]
}
# Rename contrasts
urfile <- dat$file
dat$file <- renamecontrastsmopa(dat$file)
knitr::kable(dat,caption='', digits=3) %>%
#kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
column_spec(1, bold = T, border_right = T ) %>%
kable_classic(full_width = F, html_font = "Calibri")
| file | aal | xcoord | ycoord | zcoord | cluster_pFWE | cluster_punc | cluster_k | peak_Z | peak_T | peak_pFWE | peak_punc | T_heightThresh | dist |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Sas+ | Occipital_Mid_L | -17 | -93 | 3 | 0 | 0 | 77 | 6.44 | 8.75 | 0.000 | 0 | 5.972 | 0 |
| Sas+ | Calcarine_R | 19 | -90 | 0 | 0 | 3e-04 | 16 | 5.5 | 6.86 | 0.001 | 0 | 5.972 | 0 |
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/stats_ROI/LMM_ROI_betas_2LvGLM0thirdsexMiss_tidy.xlsx')
dat <-dat[grep('FBLA',dat$Effect),]
colnames(dat) <- gsub('-value','',colnames(dat))
knitr::kable(dat,caption='', digits=3) %>%
#kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
column_spec(1, bold = T, border_right = T ) %>%
kable_classic(full_width = F, html_font = "Calibri")
| Effect | numDF | denDF | F | p | niterations | residual_threshold | excludedRows_id | excludedRows_n | excludedRows_percent | summary |
|---|---|---|---|---|---|---|---|---|---|---|
| eigen_FBLA_LFusi_stim10vs30 | 1 | 38 | 10.73 | 0.002 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=10.73, p=0.002 |
| eigen_FBLA_RFusi_stim10vs30 | 1 | 38 | 1.32 | 0.258 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=1.32, p=0.258 |
| eigen_FBLA_LPrecentral_stim10vs30 | 1 | 38 | 12.34 | 0.001 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=12.34, p=0.001 |
| eigen_FBLA_RPrecentral_stim10vs30 | 1 | 38 | 4.38 | 0.043 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=4.38, p=0.043 |
| eigen_FBLA_LSTG_stim10vs30 | 1 | 36 | 0.51 | 0.478 | 2 | 2.5 | 65,77 | 2 | 2.56 | F(1,36)=0.51, p=0.478 |
| eigen_FBLA_RSTG_stim10vs30 | 1 | 38 | 0.19 | 0.669 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.19, p=0.669 |
| eigen_FBLA_LPutamen_stim10vs30 | 1 | 36 | 31.37 | 0.000 | 2 | 2.5 | 28,65 | 2 | 2.56 | F(1,36)=31.37, p=0 |
| eigen_FBLA_RPutamen_stim10vs30 | 1 | 38 | 0.17 | 0.679 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.17, p=0.679 |
| eigen_FBLA_LHippocampus_stim10vs30 | 1 | 38 | 0.40 | 0.530 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.4, p=0.53 |
| eigen_FBLA_RHippocampus_stim10vs30 | 1 | 38 | 0.85 | 0.363 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.85, p=0.363 |
| eigen_FBLA_LCaudate_stim10vs30 | 1 | 36 | 25.12 | 0.000 | 3 | 2.5 | 28,65 | 2 | 2.56 | F(1,36)=25.12, p=0 |
| eigen_FBLA_RCaudate_stim10vs30 | 1 | 35 | 22.16 | 0.000 | 5 | 2.5 | 41,42,65,72 | 4 | 5.13 | F(1,35)=22.16, p=0 |
| eigen_FBLA_LInsula_stim10vs30 | 1 | 36 | 10.34 | 0.003 | 3 | 2.5 | 42,65 | 2 | 2.56 | F(1,36)=10.34, p=0.003 |
| eigen_FBLA_RInsula_stim10vs30 | 1 | 36 | 0.21 | 0.647 | 2 | 2.5 | 65,77 | 2 | 2.56 | F(1,36)=0.21, p=0.647 |
| eigen_FBLA_LmidCingulum_stim10vs30 | 1 | 37 | 0.34 | 0.562 | 3 | 2.5 | 65,66 | 2 | 2.56 | F(1,37)=0.34, p=0.562 |
| eigen_FBLA_RmidCingulum_stim10vs30 | 1 | 38 | 1.26 | 0.268 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=1.26, p=0.268 |
| eigen_FBLA_LSupramarginal_stim10vs30 | 1 | 37 | 0.14 | 0.714 | 2 | 2.5 | 77 | 1 | 1.28 | F(1,37)=0.14, p=0.714 |
| eigen_FBLA_RSupramarginal_stim10vs30 | 1 | 35 | 0.55 | 0.463 | 3 | 2.5 | 64,65,77 | 3 | 3.85 | F(1,35)=0.55, p=0.463 |
| eigen_FBLA_LFusi_fb10vs30 | 1 | 37 | 0.00 | 0.981 | 2 | 2.5 | 36 | 1 | 1.28 | F(1,37)=0, p=0.981 |
| eigen_FBLA_RFusi_fb10vs30 | 1 | 38 | 0.03 | 0.866 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.03, p=0.866 |
| eigen_FBLA_LPrecentral_fb10vs30 | 1 | 36 | 1.31 | 0.260 | 3 | 2.5 | 42,70 | 2 | 2.56 | F(1,36)=1.31, p=0.26 |
| eigen_FBLA_RPrecentral_fb10vs30 | 1 | 38 | 2.96 | 0.094 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=2.96, p=0.094 |
| eigen_FBLA_LSTG_fb10vs30 | 1 | 35 | 0.80 | 0.376 | 3 | 2.5 | 42,65,78 | 3 | 3.85 | F(1,35)=0.8, p=0.376 |
| eigen_FBLA_RSTG_fb10vs30 | 1 | 37 | 0.11 | 0.747 | 2 | 2.5 | 25 | 1 | 1.28 | F(1,37)=0.11, p=0.747 |
| eigen_FBLA_LPutamen_fb10vs30 | 1 | 38 | 2.18 | 0.148 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=2.18, p=0.148 |
| eigen_FBLA_RPutamen_fb10vs30 | 1 | 38 | 0.63 | 0.431 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.63, p=0.431 |
| eigen_FBLA_LHippocampus_fb10vs30 | 1 | 38 | 0.71 | 0.405 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.71, p=0.405 |
| eigen_FBLA_RHippocampus_fb10vs30 | 1 | 38 | 0.29 | 0.595 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.29, p=0.595 |
| eigen_FBLA_LCaudate_fb10vs30 | 1 | 38 | 1.31 | 0.260 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=1.31, p=0.26 |
| eigen_FBLA_RCaudate_fb10vs30 | 1 | 36 | 1.40 | 0.244 | 3 | 2.5 | 27,41 | 2 | 2.56 | F(1,36)=1.4, p=0.244 |
| eigen_FBLA_LInsula_fb10vs30 | 1 | 38 | 8.49 | 0.006 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=8.49, p=0.006 |
| eigen_FBLA_RInsula_fb10vs30 | 1 | 37 | 14.72 | 0.000 | 2 | 2.5 | 40 | 1 | 1.28 | F(1,37)=14.72, p=0 |
| eigen_FBLA_LmidCingulum_fb10vs30 | 1 | 37 | 12.20 | 0.001 | 2 | 2.5 | 78 | 1 | 1.28 | F(1,37)=12.2, p=0.001 |
| eigen_FBLA_RmidCingulum_fb10vs30 | 1 | 37 | 8.96 | 0.005 | 2 | 2.5 | 40 | 1 | 1.28 | F(1,37)=8.96, p=0.005 |
| eigen_FBLA_LSupramarginal_fb10vs30 | 1 | 37 | 3.59 | 0.066 | 2 | 2.5 | 78 | 1 | 1.28 | F(1,37)=3.59, p=0.066 |
| eigen_FBLA_RSupramarginal_fb10vs30 | 1 | 38 | 0.66 | 0.422 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.66, p=0.422 |
Onsets of stimuli and feedback against baseline. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on FWE corrected p
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/stats_ROI/LMM_ROI_betas_2LvGLM0thirdsexMiss_tidy.xlsx')
dat <-dat[grep('FBLB',dat$Effect),]
colnames(dat) <- gsub('-value','',colnames(dat))
knitr::kable(dat,caption='', digits=3) %>%
#kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
column_spec(1, bold = T, border_right = T ) %>%
kable_classic(full_width = F, html_font = "Calibri")
| Effect | numDF | denDF | F | p | niterations | residual_threshold | excludedRows_id | excludedRows_n | excludedRows_percent | summary |
|---|---|---|---|---|---|---|---|---|---|---|
| eigen_FBLB_LFusi_stim10vs30 | 1 | 38 | 13.08 | 0.001 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=13.08, p=0.001 |
| eigen_FBLB_RFusi_stim10vs30 | 1 | 38 | 15.45 | 0.000 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=15.45, p=0 |
| eigen_FBLB_LPrecentral_stim10vs30 | 1 | 38 | 7.05 | 0.012 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=7.05, p=0.012 |
| eigen_FBLB_RPrecentral_stim10vs30 | 1 | 38 | 2.54 | 0.120 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=2.54, p=0.12 |
| eigen_FBLB_LSTG_stim10vs30 | 1 | 35 | 1.32 | 0.258 | 3 | 2.5 | 11,40,41,42 | 4 | 5.13 | F(1,35)=1.32, p=0.258 |
| eigen_FBLB_RSTG_stim10vs30 | 1 | 36 | 0.07 | 0.794 | 3 | 2.5 | 40,41 | 2 | 2.56 | F(1,36)=0.07, p=0.794 |
| eigen_FBLB_LPutamen_stim10vs30 | 1 | 37 | 7.83 | 0.008 | 3 | 2.5 | 65,66 | 2 | 2.56 | F(1,37)=7.83, p=0.008 |
| eigen_FBLB_RPutamen_stim10vs30 | 1 | 36 | 4.04 | 0.052 | 3 | 2.5 | 65,78 | 2 | 2.56 | F(1,36)=4.04, p=0.052 |
| eigen_FBLB_LHippocampus_stim10vs30 | 1 | 38 | 0.24 | 0.625 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.24, p=0.625 |
| eigen_FBLB_RHippocampus_stim10vs30 | 1 | 37 | 0.41 | 0.525 | 2 | 2.5 | 15 | 1 | 1.28 | F(1,37)=0.41, p=0.525 |
| eigen_FBLB_LCaudate_stim10vs30 | 1 | 38 | 9.02 | 0.005 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=9.02, p=0.005 |
| eigen_FBLB_RCaudate_stim10vs30 | 1 | 36 | 7.98 | 0.008 | 2 | 2.5 | 41,65 | 2 | 2.56 | F(1,36)=7.98, p=0.008 |
| eigen_FBLB_LInsula_stim10vs30 | 1 | 38 | 4.54 | 0.040 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=4.54, p=0.04 |
| eigen_FBLB_RInsula_stim10vs30 | 1 | 38 | 7.77 | 0.008 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=7.77, p=0.008 |
| eigen_FBLB_LmidCingulum_stim10vs30 | 1 | 38 | 8.54 | 0.006 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=8.54, p=0.006 |
| eigen_FBLB_RmidCingulum_stim10vs30 | 1 | 38 | 10.34 | 0.003 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=10.34, p=0.003 |
| eigen_FBLB_LSupramarginal_stim10vs30 | 1 | 36 | 1.62 | 0.211 | 2 | 2.5 | 40,78 | 2 | 2.56 | F(1,36)=1.62, p=0.211 |
| eigen_FBLB_RSupramarginal_stim10vs30 | 1 | 37 | 0.12 | 0.726 | 2 | 2.5 | 40 | 1 | 1.28 | F(1,37)=0.12, p=0.726 |
| eigen_FBLB_LFusi_fb10vs30 | 1 | 37 | 0.29 | 0.592 | 2 | 2.5 | 48 | 1 | 1.28 | F(1,37)=0.29, p=0.592 |
| eigen_FBLB_RFusi_fb10vs30 | 1 | 38 | 0.14 | 0.709 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.14, p=0.709 |
| eigen_FBLB_LPrecentral_fb10vs30 | 1 | 38 | 0.18 | 0.677 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.18, p=0.677 |
| eigen_FBLB_RPrecentral_fb10vs30 | 1 | 38 | 1.03 | 0.316 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=1.03, p=0.316 |
| eigen_FBLB_LSTG_fb10vs30 | 1 | 37 | 1.86 | 0.181 | 2 | 2.5 | 41 | 1 | 1.28 | F(1,37)=1.86, p=0.181 |
| eigen_FBLB_RSTG_fb10vs30 | 1 | 38 | 0.05 | 0.821 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.05, p=0.821 |
| eigen_FBLB_LPutamen_fb10vs30 | 1 | 38 | 0.00 | 0.983 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0, p=0.983 |
| eigen_FBLB_RPutamen_fb10vs30 | 1 | 38 | 2.02 | 0.164 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=2.02, p=0.164 |
| eigen_FBLB_LHippocampus_fb10vs30 | 1 | 38 | 0.11 | 0.740 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.11, p=0.74 |
| eigen_FBLB_RHippocampus_fb10vs30 | 1 | 38 | 0.21 | 0.651 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.21, p=0.651 |
| eigen_FBLB_LCaudate_fb10vs30 | 1 | 38 | 0.14 | 0.710 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.14, p=0.71 |
| eigen_FBLB_RCaudate_fb10vs30 | 1 | 37 | 0.53 | 0.473 | 2 | 2.5 | 42 | 1 | 1.28 | F(1,37)=0.53, p=0.473 |
| eigen_FBLB_LInsula_fb10vs30 | 1 | 38 | 0.04 | 0.850 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.04, p=0.85 |
| eigen_FBLB_RInsula_fb10vs30 | 1 | 38 | 1.40 | 0.244 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=1.4, p=0.244 |
| eigen_FBLB_LmidCingulum_fb10vs30 | 1 | 38 | 0.09 | 0.764 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.09, p=0.764 |
| eigen_FBLB_RmidCingulum_fb10vs30 | 1 | 38 | 0.02 | 0.886 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.02, p=0.886 |
| eigen_FBLB_LSupramarginal_fb10vs30 | 1 | 38 | 0.02 | 0.894 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=0.02, p=0.894 |
| eigen_FBLB_RSupramarginal_fb10vs30 | 1 | 38 | 1.48 | 0.232 | 1 | 2.5 | NA | 0 | 0 | F(1,38)=1.48, p=0.232 |
Onsets of stimuli and feedback against baseline. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on FWE corrected p
```